﻿Public Class TJunctionObj
    Inherits DungeonPieceObj


    Public Sub New()

        'normal orientation
        '
        '    -------------
        '    | | | | | | |
        '    -------------
        '    | | | | | | |
        '    -------------
        '        | | |
        '        -----
        '        | | |
        '        -----
        '

        Me.Height = 4
        Me.Width = 6
        Me.DivideDungeon = True

    End Sub

    'Public Overrides Function getfloor(ByVal x As Integer, ByVal y As Integer, ByVal orientation As DungeonPieceObj.eOrientation, ByVal reverseDirectionFlag As Boolean, ByRef dungeonDisplay As Dungeon) As List(Of DungeonFloorObj)
    '    'todo: create 'holes' in the floor in the lower corners (2x2)
    'End Function

    Public Overrides Function ToString() As String
        Return "T-Junction"
    End Function


End Class
